﻿<!-- #include file="mymin.asp" -->
<%
If Request("submit") <> "" Then

Dim list_,article_,discuss_,title_,bbslist_,topicmin_,topicmax_,replymin_,replymax_,numHit_,numBbsHit_
list_=Request.Form("numList")
article_=Request.Form("numArticle")
discuss_=Request.Form("numDiscuss")
title_=Request.Form("numTitle")
bbslist_=Request.Form("numBbsList")
topicmin_=Request.Form("numTopicMin")
topicmax_=Request.Form("numTopicMax")
replymin_=Request.Form("numReplyMin")
replymax_=Request.Form("numReplyMax")
numHit_=Request.Form("numHit")
numBbsHit_=Request.Form("numBbsHit")
If Not IsNumeric(list_&article_&discuss_&title_&bbslist_&topicmin_&topicmax_&replymin_&replymax_&numHit_&numBbsHit_) Then
	Call Error("<card title='出错'><p>请输入数字！<br/><a href=""num.asp?sid="&sid&""">返回修改</a>")
End If

if numHit_>4 Or numBbsHit_>4 then
	Call Error("<card title='出错'><p>点击种子大于4效果太夸张！设为2最合适<br/><a href=""num.asp?sid="&sid&""">返回修改</a>")
end if

'----------------------------------------------------------------
'	生成num.asp文件
'----------------------------------------------------------------
dim HU_Config,HU_File

HU_File= "../../config/num.asp"'生成num.asp文件路径

HU_Config="<"&"%"
HU_Config=HU_Config+chr(13)&chr(10)&"numTitle="""&int(title_)&""" '标题显示字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numList="""&int(list_)&""" '文章列表数"
HU_Config=HU_Config+chr(13)&chr(10)&"numArticle="""&int(article_)&""" '文章每页字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numDiscuss="""&int(discuss_)&""" '文章评论最少字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numHit="""&int(numHit_)&""" '文章点击种子"
HU_Config=HU_Config+chr(13)&chr(10)&"numBbsList="""&int(bbslist_)&""" '论坛列表数"
HU_Config=HU_Config+chr(13)&chr(10)&"numTopicMin="""&int(topicmin_)&""" '帖子最少字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numTopicMax="""&int(topicmax_)&""" '帖子最多字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numReplyMin="""&int(replymin_)&""" '回帖最少字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numReplyMax="""&int(replymax_)&""" '回帖最多字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numBbsHit="""&int(numBbsHit_)&""" '帖子点击种子"
HU_Config=HU_Config+chr(13)&chr(10)&"%"&">"
Call savetofile(HU_Config,HU_File)
Response.Write "<card id='card2' title='正在返回' ontimer='index.asp?sid="&sid&"'><timer value='10'/><p>"
Response.Write "成功设置！正在返回..."
else%>
<card id="index" title="网站字数配置">
<p align="left">
【所有栏目】<br/>
标题显示长度<input name="numTitle<%=time_r%>" type="text" value="<%=numTitle%>"/><br/>
【文章栏目】<br/>
文章列表数<input name="numList<%=time_r%>" type="text" value="<%=numList%>"/><br/>
文章每页字数<input name="numArticle<%=time_r%>" type="text" value="<%=numArticle%>"/><br/>
文章评论最少字数<input name="numDiscuss<%=time_r%>" type="text" value="<%=numDiscuss%>"/><br/>
文章点击种子<input name="numHit<%=time_r%>" type="text" value="<%=numHit%>"/><br/>
【论坛栏目】<br/>
论坛列表数<input name="numBbsList<%=time_r%>" type="text" value="<%=numBbsList%>"/><br/>
帖子最少字数<input name="numTopicMin<%=time_r%>" type="text" value="<%=numTopicMin%>"/><br/>
帖子最多字数<input name="numTopicMax<%=time_r%>" type="text" value="<%=numTopicMax%>"/><br/>
回帖最少字数<input name="numReplyMin<%=time_r%>" type="text" value="<%=numReplyMin%>"/><br/>
回帖最多字数<input name="numReplyMax<%=time_r%>" type="text" value="<%=numReplyMax%>"/><br/>
帖子点击种子<input name="numBbsHit<%=time_r%>" type="text" value="<%=numBbsHit%>"/><br/>
<anchor>保存配置
<go href="num.asp?submit=true&amp;sid=<%=sid%>" method="post">
<postfield name="numList" value="$(numList<%=time_r%>)"/>
<postfield name="numArticle" value="$(numArticle<%=time_r%>)"/>
<postfield name="numTitle" value="$(numTitle<%=time_r%>)"/>
<postfield name="numDiscuss" value="$(numDiscuss<%=time_r%>)"/>
<postfield name="numBbsList" value="$(numBbsList<%=time_r%>)"/>
<postfield name="numTopicMin" value="$(numTopicMin<%=time_r%>)"/>
<postfield name="numTopicMax" value="$(numTopicMax<%=time_r%>)"/>
<postfield name="numReplyMin" value="$(numReplyMin<%=time_r%>)"/>
<postfield name="numReplyMax" value="$(numReplyMax<%=time_r%>)"/>
<postfield name="numHit" value="$(numHit<%=time_r%>)"/>
<postfield name="numBbsHit" value="$(numBbsHit<%=time_r%>)"/>
</go>
</anchor><br/>
温馨提示:<br/>
1、点击种子:大于0则表示点击率开启作弊。如果设为3，点击率会随机加上1~3<br/>
2、帖子目前采用微博模式，限定字数，有助于提高论坛活跃度
<%end if%><br/>
<a href="index.asp?sid=<%=sid%>">[网站配置]</a><%call Last%>